home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 115 / 115.d81 / ts viewer (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  37 lines
  1. 10 rem   poke56,32:poke55,32:clr
  2. 20 dv=peek(186):ifdv<8thendv=8
  3. 30 poke53281,0:poke53280,0:print"[147][129]          [212][200][197] [205][201][199][200][212][217] [204][207][193][196][211][212][193][210]"
  4. 40 print"      [212][201][212][204][197] [211][195][210][197][197][206] [214][201][197][215][197][210]/[208][210][201][206][212][197][210]
  5. 50 [158]57812"unpacker.89",dv,0:[151]780,0:[151]781,0:[151]782,201:[158]65493
  6. 60 [158]57812"intro.shp",dv,0:[151]780,0:[151]781,0:[151]782,32:[158]65493
  7. 70 [158]57812"tswp93 $c000",dv,0:[151]780,0:[151]781,0:[151]782,192:[158]65493
  8. 90 [151]53280,0
  9. 100 lf$(0)[178]"(NULL)ascasc":lf$(1)[178]"(NULL)(NULL) "
  10. 110 [153]" 1.cont mid$ust show the picture.
  11. 120 print" 2.[154] [211]how the picture and print it on
  12. 125 [153]"    a 7-pin (1525-emulating) printer.
  13. 130 print" 3.[154] [211]how the picture and print it on
  14. 135 [153]"    an 8-pin (valpson-emulating) printer.
  15. 140 print" 4.[154] [212]oggle linefeed -- "lf$(lf)
  16. 150 print" 5.[154] [210]eturn to [204][207][193][196][211][212][193][210].
  17. 170 [153]"list  (NULL)ake sure your printer is on-line.
  18. 220 poke198,0
  19. 222 poke53280,0:poke53281,0
  20. 230 geta$:ifa$<"1"ora$>"5"then230
  21. 232 ifa$="5"then40000
  22. 233 ifa$="4"thenlf=1-lf:poke214,13:print:printtab(23)""lf$(lf):goto220
  23. 235 poke251,32:poke252,64:poke253,96:sys51456:sys51459
  24. 240 ifa$="2"thensys49155,4,5,lf,0,0,39,24,64:goto280
  25. 250 ifa$="3"thensys49152,4,5,lf,0,0,39,24,64,76,35,65,8,0:goto280
  26. 260 poke198,0
  27. 262 poke53280,0
  28. 270 geta$:ifa$=""then270
  29. 280 poke251,32:poke252,64:poke253,96:sys51459
  30. 290 goto220
  31. 10000 open15,8,15,"s0:ts viewer":close15:save"ts viewer",8:end
  32. 40000 a$="hello connect":fori=8to9:close2:open2,i,2:close2:ifstthen40020
  33. 40010 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40030
  34. 40020 next:print"[147]":poke2048,0:poke44,8:poke53272,23:poke186,8:end
  35. 40030 poke646,peek(53281):print"[147]load"chr$(34)a$chr$(34)","i
  36. 40040 print"run":poke44,8:poke2048,0:poke631,13:poke632,13:poke198,2:end
  37.